home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / [_leo_html502641212002.psc / fader6.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2002-01-21  |  23.8 KB  |  728 lines
  1. VERSION 5.00
  2. Begin VB.Form Form6 
  3.    BackColor       =   &H00C07800&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form6"
  6.    ClientHeight    =   6945
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   5775
  10.    LinkTopic       =   "Form6"
  11.    ScaleHeight     =   6945
  12.    ScaleWidth      =   5775
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CheckBox Check1 
  16.       Appearance      =   0  'Flat
  17.       BackColor       =   &H00C07800&
  18.       Caption         =   "Golf Colors"
  19.       ForeColor       =   &H80000008&
  20.       Height          =   315
  21.       Index           =   4
  22.       Left            =   1725
  23.       TabIndex        =   28
  24.       ToolTipText     =   "Color that remind me of golf"
  25.       Top             =   4500
  26.       Width           =   1590
  27.    End
  28.    Begin VB.CheckBox Check1 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H00C07800&
  31.       Caption         =   "American Colors"
  32.       ForeColor       =   &H80000008&
  33.       Height          =   315
  34.       Index           =   3
  35.       Left            =   1725
  36.       TabIndex        =   27
  37.       ToolTipText     =   "American Color. the good old reb white and blue"
  38.       Top             =   4200
  39.       Width           =   1590
  40.    End
  41.    Begin VB.CheckBox Check1 
  42.       Appearance      =   0  'Flat
  43.       BackColor       =   &H00C07800&
  44.       Caption         =   "Easter Colors"
  45.       ForeColor       =   &H80000008&
  46.       Height          =   315
  47.       Index           =   2
  48.       Left            =   225
  49.       TabIndex        =   26
  50.       ToolTipText     =   "Nothing like Easter"
  51.       Top             =   4800
  52.       Width           =   1440
  53.    End
  54.    Begin VB.CheckBox Check1 
  55.       Appearance      =   0  'Flat
  56.       BackColor       =   &H00C07800&
  57.       Caption         =   "Grey"
  58.       ForeColor       =   &H80000008&
  59.       Height          =   315
  60.       Index           =   1
  61.       Left            =   225
  62.       TabIndex        =   25
  63.       ToolTipText     =   "This is one of my favoirt"
  64.       Top             =   4500
  65.       Width           =   1440
  66.    End
  67.    Begin VB.CheckBox Check1 
  68.       Appearance      =   0  'Flat
  69.       BackColor       =   &H00C07800&
  70.       Caption         =   "Origanal"
  71.       ForeColor       =   &H80000008&
  72.       Height          =   315
  73.       Index           =   0
  74.       Left            =   225
  75.       TabIndex        =   24
  76.       ToolTipText     =   "This is what the program normal has"
  77.       Top             =   4200
  78.       Width           =   1440
  79.    End
  80.    Begin VB.PictureBox Picture1 
  81.       Appearance      =   0  'Flat
  82.       BackColor       =   &H80000005&
  83.       ForeColor       =   &H80000008&
  84.       Height          =   540
  85.       Index           =   7
  86.       Left            =   5025
  87.       ScaleHeight     =   510
  88.       ScaleWidth      =   510
  89.       TabIndex        =   22
  90.       Top             =   2250
  91.       Width           =   540
  92.    End
  93.    Begin VB.PictureBox Picture1 
  94.       Appearance      =   0  'Flat
  95.       BackColor       =   &H80000005&
  96.       ForeColor       =   &H80000008&
  97.       Height          =   540
  98.       Index           =   6
  99.       Left            =   2250
  100.       ScaleHeight     =   510
  101.       ScaleWidth      =   510
  102.       TabIndex        =   21
  103.       ToolTipText     =   "This is the color that will be used as the bordor colr of buttons and frams"
  104.       Top             =   2250
  105.       Width           =   540
  106.    End
  107.    Begin VB.PictureBox Picture1 
  108.       Appearance      =   0  'Flat
  109.       BackColor       =   &H80000005&
  110.       ForeColor       =   &H80000008&
  111.       Height          =   540
  112.       Index           =   5
  113.       Left            =   5025
  114.       ScaleHeight     =   510
  115.       ScaleWidth      =   510
  116.       TabIndex        =   20
  117.       ToolTipText     =   "This is the color that will be the buttons text color when the butten is depressed"
  118.       Top             =   1650
  119.       Width           =   540
  120.    End
  121.    Begin VB.PictureBox Picture1 
  122.       Appearance      =   0  'Flat
  123.       BackColor       =   &H80000005&
  124.       ForeColor       =   &H80000008&
  125.       Height          =   540
  126.       Index           =   4
  127.       Left            =   2250
  128.       ScaleHeight     =   510
  129.       ScaleWidth      =   510
  130.       TabIndex        =   19
  131.       ToolTipText     =   "This is the color that will be the BackRound color of the button when the butten is push Down"
  132.       Top             =   1650
  133.       Width           =   540
  134.    End
  135.    Begin VB.PictureBox Picture1 
  136.       Appearance      =   0  'Flat
  137.       BackColor       =   &H80000005&
  138.       ForeColor       =   &H80000008&
  139.       Height          =   540
  140.       Index           =   3
  141.       Left            =   5025
  142.       ScaleHeight     =   510
  143.       ScaleWidth      =   510
  144.       TabIndex        =   18
  145.       ToolTipText     =   "This color will be the color of the text boxes text color... Cunfusing Huhh"
  146.       Top             =   1050
  147.       Width           =   540
  148.    End
  149.    Begin VB.PictureBox Picture1 
  150.       Appearance      =   0  'Flat
  151.       BackColor       =   &H80000005&
  152.       ForeColor       =   &H80000008&
  153.       Height          =   540
  154.       Index           =   2
  155.       Left            =   2250
  156.       ScaleHeight     =   510
  157.       ScaleWidth      =   510
  158.       TabIndex        =   17
  159.       ToolTipText     =   "this color will be used as the backround color of text boxes"
  160.       Top             =   1050
  161.       Width           =   540
  162.    End
  163.    Begin VB.PictureBox Picture1 
  164.       Appearance      =   0  'Flat
  165.       BackColor       =   &H80000005&
  166.       ForeColor       =   &H80000008&
  167.       Height          =   540
  168.       Index           =   1
  169.       Left            =   5025
  170.       ScaleHeight     =   510
  171.       ScaleWidth      =   510
  172.       TabIndex        =   16
  173.       ToolTipText     =   "This is the color that will be the program Back Groung Color"
  174.       Top             =   450
  175.       Width           =   540
  176.    End
  177.    Begin VB.PictureBox Picture9 
  178.       Appearance      =   0  'Flat
  179.       BackColor       =   &H80000005&
  180.       ForeColor       =   &H80000008&
  181.       Height          =   765
  182.       Left            =   150
  183.       ScaleHeight     =   735
  184.       ScaleWidth      =   810
  185.       TabIndex        =   15
  186.       ToolTipText     =   "Preview of a color box"
  187.       Top             =   5925
  188.       Width           =   840
  189.    End
  190.    Begin VB.TextBox Text1 
  191.       Appearance      =   0  'Flat
  192.       Height          =   390
  193.       Left            =   1050
  194.       TabIndex        =   14
  195.       Text            =   "Preview Text Box"
  196.       ToolTipText     =   "This is a text box preview"
  197.       Top             =   5925
  198.       Width           =   4590
  199.    End
  200.    Begin VB.PictureBox Picture1 
  201.       Appearance      =   0  'Flat
  202.       BackColor       =   &H80000005&
  203.       ForeColor       =   &H80000008&
  204.       Height          =   540
  205.       Index           =   0
  206.       Left            =   2250
  207.       ScaleHeight     =   510
  208.       ScaleWidth      =   510
  209.       TabIndex        =   2
  210.       ToolTipText     =   "This is the color that will be the program text color"
  211.       Top             =   450
  212.       Width           =   540
  213.    End
  214.    Begin VB.Label Label13 
  215.       Alignment       =   2  'Center
  216.       BackColor       =   &H00000000&
  217.       BackStyle       =   0  'Transparent
  218.       Caption         =   "PreSet Settings"
  219.       BeginProperty Font 
  220.          Name            =   "MS Sans Serif"
  221.          Size            =   12
  222.          Charset         =   0
  223.          Weight          =   400
  224.          Underline       =   0   'False
  225.          Italic          =   0   'False
  226.          Strikethrough   =   0   'False
  227.       EndProperty
  228.       ForeColor       =   &H00FFFFFF&
  229.       Height          =   315
  230.       Left            =   75
  231.       TabIndex        =   23
  232.       Tag             =   "made by leo/jason"
  233.       ToolTipText     =   "Setting that have been predifined"
  234.       Top             =   3825
  235.       Width           =   5640
  236.    End
  237.    Begin VB.Shape Shape7 
  238.       BorderColor     =   &H00000000&
  239.       FillColor       =   &H00C07800&
  240.       FillStyle       =   0  'Solid
  241.       Height          =   1290
  242.       Left            =   75
  243.       Top             =   4125
  244.       Width           =   5640
  245.    End
  246.    Begin VB.Label Label11 
  247.       Alignment       =   2  'Center
  248.       BackStyle       =   0  'Transparent
  249.       Caption         =   "OK"
  250.       BeginProperty Font 
  251.          Name            =   "MS Sans Serif"
  252.          Size            =   12
  253.          Charset         =   0
  254.          Weight          =   400
  255.          Underline       =   0   'False
  256.          Italic          =   0   'False
  257.          Strikethrough   =   0   'False
  258.       EndProperty
  259.       ForeColor       =   &H00FFFFFF&
  260.       Height          =   315
  261.       Left            =   1275
  262.       TabIndex        =   12
  263.       Tag             =   "made by leo/jason"
  264.       ToolTipText     =   "Accept Changes"
  265.       Top             =   3375
  266.       Width           =   1515
  267.    End
  268.    Begin VB.Label Label10 
  269.       Alignment       =   2  'Center
  270.       BackStyle       =   0  'Transparent
  271.       Caption         =   "Cancel"
  272.       BeginProperty Font 
  273.          Name            =   "MS Sans Serif"
  274.          Size            =   12
  275.          Charset         =   0
  276.          Weight          =   400
  277.          Underline       =   0   'False
  278.          Italic          =   0   'False
  279.          Strikethrough   =   0   'False
  280.       EndProperty
  281.       ForeColor       =   &H00FFFFFF&
  282.       Height          =   315
  283.       Left            =   3075
  284.       TabIndex        =   11
  285.       Tag             =   "made by leo/jason"
  286.       ToolTipText     =   "A forget what i did i like the setting i have now"
  287.       Top             =   3375
  288.       Width           =   1515
  289.    End
  290.    Begin VB.Shape Shape5 
  291.       BackColor       =   &H00C07800&
  292.       BackStyle       =   1  'Opaque
  293.       Height          =   315
  294.       Left            =   1275
  295.       Top             =   3375
  296.       Width           =   1515
  297.    End
  298.    Begin VB.Shape Shape6 
  299.       BackColor       =   &H00C07800&
  300.       BackStyle       =   1  'Opaque
  301.       Height          =   315
  302.       Left            =   3075
  303.       Top             =   3375
  304.       Width           =   1515
  305.    End
  306.    Begin VB.Label Label12 
  307.       Alignment       =   2  'Center
  308.       BackStyle       =   0  'Transparent
  309.       Caption         =   "Preview Button"
  310.       BeginProperty Font 
  311.          Name            =   "MS Sans Serif"
  312.          Size            =   12
  313.          Charset         =   0
  314.          Weight          =   400
  315.          Underline       =   0   'False
  316.          Italic          =   0   'False
  317.          Strikethrough   =   0   'False
  318.       EndProperty
  319.       ForeColor       =   &H00FFFFFF&
  320.       Height          =   315
  321.       Left            =   1050
  322.       TabIndex        =   13
  323.       Tag             =   "made by leo/jason"
  324.       ToolTipText     =   "This is a preview of a button and it's colors"
  325.       Top             =   6375
  326.       Width           =   4590
  327.    End
  328.    Begin VB.Shape Shape8 
  329.       BackColor       =   &H00C07800&
  330.       BackStyle       =   1  'Opaque
  331.       Height          =   315
  332.       Left            =   1050
  333.       Top             =   6375
  334.       Width           =   4590
  335.    End
  336.    Begin VB.Label Label9 
  337.       Alignment       =   2  'Center
  338.       BackColor       =   &H00000000&
  339.       BackStyle       =   0  'Transparent
  340.       Caption         =   "Preview"
  341.       BeginProperty Font 
  342.          Name            =   "MS Sans Serif"
  343.          Size            =   12
  344.          Charset         =   0
  345.          Weight          =   400
  346.          Underline       =   0   'False
  347.          Italic          =   0   'False
  348.          Strikethrough   =   0   'False
  349.       EndProperty
  350.       ForeColor       =   &H00FFFFFF&
  351.       Height          =   315
  352.       Left            =   75
  353.       TabIndex        =   10
  354.       Tag             =   "made by leo/jason"
  355.       ToolTipText     =   "This is the box that you can see color changes in"
  356.       Top             =   5475
  357.       Width           =   5640
  358.    End
  359.    Begin VB.Shape Shape3 
  360.       BorderColor     =   &H00000000&
  361.       FillColor       =   &H00C07800&
  362.       FillStyle       =   0  'Solid
  363.       Height          =   1065
  364.       Left            =   75
  365.       Top             =   5775
  366.       Width           =   5640
  367.    End
  368.    Begin VB.Label Label8 
  369.       BackColor       =   &H00000000&
  370.       BackStyle       =   0  'Transparent
  371.       Caption         =   "Color Box BG"
  372.       BeginProperty Font 
  373.          Name            =   "MS Sans Serif"
  374.          Size            =   12
  375.          Charset         =   0
  376.          Weight          =   400
  377.          Underline       =   0   'False
  378.          Italic          =   0   'False
  379.          Strikethrough   =   0   'False
  380.       EndProperty
  381.       ForeColor       =   &H00FFFFFF&
  382.       Height          =   390
  383.       Left            =   3000
  384.       TabIndex        =   9
  385.       Tag             =   "made by leo/jason"
  386.       Top             =   2325
  387.       Width           =   1965
  388.    End
  389.    Begin VB.Label Label7 
  390.       BackColor       =   &H00000000&
  391.       BackStyle       =   0  'Transparent
  392.       Caption         =   "Button Bordor"
  393.       BeginProperty Font 
  394.          Name            =   "MS Sans Serif"
  395.          Size            =   12
  396.          Charset         =   0
  397.          Weight          =   400
  398.          Underline       =   0   'False
  399.          Italic          =   0   'False
  400.          Strikethrough   =   0   'False
  401.       EndProperty
  402.       ForeColor       =   &H00FFFFFF&
  403.       Height          =   390
  404.       Left            =   225
  405.       TabIndex        =   8
  406.       Tag             =   "made by leo/jason"
  407.       Top             =   2325
  408.       Width           =   1740
  409.    End
  410.    Begin VB.Label Label6 
  411.       BackColor       =   &H00000000&
  412.       BackStyle       =   0  'Transparent
  413.       Caption         =   "Button Down Text"
  414.       BeginProperty Font 
  415.          Name            =   "MS Sans Serif"
  416.          Size            =   12
  417.          Charset         =   0
  418.          Weight          =   400
  419.          Underline       =   0   'False
  420.          Italic          =   0   'False
  421.          Strikethrough   =   0   'False
  422.       EndProperty
  423.       ForeColor       =   &H00FFFFFF&
  424.       Height          =   390
  425.       Left            =   3000
  426.       TabIndex        =   7
  427.       Tag             =   "made by leo/jason"
  428.       Top             =   1725
  429.       Width           =   2040
  430.    End
  431.    Begin VB.Label Label5 
  432.       BackColor       =   &H00000000&
  433.       BackStyle       =   0  'Transparent
  434.       Caption         =   "Button Down BG"
  435.       BeginProperty Font 
  436.          Name            =   "MS Sans Serif"
  437.          Size            =   12
  438.          Charset         =   0
  439.          Weight          =   400
  440.          Underline       =   0   'False
  441.          Italic          =   0   'False
  442.          Strikethrough   =   0   'False
  443.       EndProperty
  444.       ForeColor       =   &H00FFFFFF&
  445.       Height          =   390
  446.       Left            =   225
  447.       TabIndex        =   6
  448.       Tag             =   "made by leo/jason"
  449.       Top             =   1725
  450.       Width           =   1815
  451.    End
  452.    Begin VB.Label Label4 
  453.       BackColor       =   &H00000000&
  454.       BackStyle       =   0  'Transparent
  455.       Caption         =   "Text Box Text"
  456.       BeginProperty Font 
  457.          Name            =   "MS Sans Serif"
  458.          Size            =   12
  459.          Charset         =   0
  460.          Weight          =   400
  461.          Underline       =   0   'False
  462.          Italic          =   0   'False
  463.          Strikethrough   =   0   'False
  464.       EndProperty
  465.       ForeColor       =   &H00FFFFFF&
  466.       Height          =   390
  467.       Left            =   3000
  468.       TabIndex        =   5
  469.       Tag             =   "made by leo/jason"
  470.       Top             =   1125
  471.       Width           =   1515
  472.    End
  473.    Begin VB.Label Label3 
  474.       BackColor       =   &H00000000&
  475.       BackStyle       =   0  'Transparent
  476.       Caption         =   "Text Box BG"
  477.       BeginProperty Font 
  478.          Name            =   "MS Sans Serif"
  479.          Size            =   12
  480.          Charset         =   0
  481.          Weight          =   400
  482.          Underline       =   0   'False
  483.          Italic          =   0   'False
  484.          Strikethrough   =   0   'False
  485.       EndProperty
  486.       ForeColor       =   &H00FFFFFF&
  487.       Height          =   390
  488.       Left            =   225
  489.       TabIndex        =   4
  490.       Tag             =   "made by leo/jason"
  491.       Top             =   1125
  492.       Width           =   1515
  493.    End
  494.    Begin VB.Label Label2 
  495.       BackColor       =   &H00000000&
  496.       BackStyle       =   0  'Transparent
  497.       Caption         =   "Program BG"
  498.       BeginProperty Font 
  499.          Name            =   "MS Sans Serif"
  500.          Size            =   12
  501.          Charset         =   0
  502.          Weight          =   400
  503.          Underline       =   0   'False
  504.          Italic          =   0   'False
  505.          Strikethrough   =   0   'False
  506.       EndProperty
  507.       ForeColor       =   &H00FFFFFF&
  508.       Height          =   390
  509.       Left            =   3000
  510.       TabIndex        =   3
  511.       Tag             =   "made by leo/jason"
  512.       Top             =   525
  513.       Width           =   2415
  514.    End
  515.    Begin VB.Label Label1 
  516.       BackColor       =   &H00000000&
  517.       BackStyle       =   0  'Transparent
  518.       Caption         =   "Program Text"
  519.       BeginProperty Font 
  520.          Name            =   "MS Sans Serif"
  521.          Size            =   12
  522.          Charset         =   0
  523.          Weight          =   400
  524.          Underline       =   0   'False
  525.          Italic          =   0   'False
  526.          Strikethrough   =   0   'False
  527.       EndProperty
  528.       ForeColor       =   &H00FFFFFF&
  529.       Height          =   390
  530.       Left            =   225
  531.       TabIndex        =   1
  532.       Tag             =   "made by leo/jason"
  533.       Top             =   525
  534.       Width           =   1515
  535.    End
  536.    Begin VB.Label tt 
  537.       Alignment       =   2  'Center
  538.       BackColor       =   &H00000000&
  539.       BackStyle       =   0  'Transparent
  540.       Caption         =   "Change Program Colors"
  541.       BeginProperty Font 
  542.          Name            =   "MS Sans Serif"
  543.          Size            =   12
  544.          Charset         =   0
  545.          Weight          =   400
  546.          Underline       =   0   'False
  547.          Italic          =   0   'False
  548.          Strikethrough   =   0   'False
  549.       EndProperty
  550.       ForeColor       =   &H00FFFFFF&
  551.       Height          =   315
  552.       Left            =   75
  553.       TabIndex        =   0
  554.       Tag             =   "made by leo/jason"
  555.       Top             =   75
  556.       Width           =   5640
  557.    End
  558.    Begin VB.Shape Shape1 
  559.       BorderColor     =   &H00000000&
  560.       FillColor       =   &H00C07800&
  561.       FillStyle       =   0  'Solid
  562.       Height          =   315
  563.       Left            =   75
  564.       Top             =   75
  565.       Width           =   5640
  566.    End
  567.    Begin VB.Shape Shape2 
  568.       BorderColor     =   &H00000000&
  569.       FillColor       =   &H00C07800&
  570.       FillStyle       =   0  'Solid
  571.       Height          =   3390
  572.       Left            =   75
  573.       Top             =   375
  574.       Width           =   5640
  575.    End
  576.    Begin VB.Shape Shape4 
  577.       BorderColor     =   &H00000000&
  578.       FillColor       =   &H00C07800&
  579.       FillStyle       =   0  'Solid
  580.       Height          =   315
  581.       Left            =   75
  582.       Top             =   5475
  583.       Width           =   5640
  584.    End
  585.    Begin VB.Shape Shape9 
  586.       BorderColor     =   &H00000000&
  587.       FillColor       =   &H00C07800&
  588.       FillStyle       =   0  'Solid
  589.       Height          =   315
  590.       Left            =   75
  591.       Top             =   3825
  592.       Width           =   5640
  593.    End
  594. Attribute VB_Name = "Form6"
  595. Attribute VB_GlobalNameSpace = False
  596. Attribute VB_Creatable = False
  597. Attribute VB_PredeclaredId = True
  598. Attribute VB_Exposed = False
  599. Private tMdBgColor
  600. Private tMdFgColor
  601. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  602. Private MouseDownForm
  603. Private MouseDownFormX
  604. Private MouseDownFormY
  605. Private Type POINTAPI
  606.     X As Long
  607.     Y As Long
  608. End Type
  609. Private Sub tt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  610. MouseDownForm = 1
  611. MouseDownFormX = X
  612. MouseDownFormY = Y
  613. End Sub
  614. Private Sub tt_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  615. MouseDownForm = 0
  616. End Sub
  617. Private Sub tt_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  618. DoEvents
  619. If MouseDownForm <> 1 Then
  620. Exit Sub
  621. End If
  622. Dim Z As POINTAPI
  623. Call GetCursorPos(Z)
  624. Form6.Top = (Z.Y * 15) - MouseDownFormY
  625. Form6.Left = (Z.X * 15) - MouseDownFormX
  626. End Sub
  627. Private Sub Check1_Click(Index As Integer)
  628. If Check1(Index).Value = 1 Then
  629. For X = 0 To Check1.UBound
  630. If X = Index Then
  631. Check1(X).Value = 0
  632. End If
  633. If Index = 0 Then
  634. ntempbb = Invis
  635. changecolor &HC07800, vbWhite, vbBlack, vbWhite, vbBlack, vbWhite, vbBlack, vbWhite
  636. UpdateColors
  637. End If
  638. If Index = 1 Then
  639. ntempbb = Invis
  640. changecolor 12632256, 4210752, 4210752, 8421504, 14737632, 14737632, 4210752, 8421504
  641. UpdateColors
  642. End If
  643. If Index = 2 Then
  644. ntempbb = Invis
  645. changecolor 12632319, 4210752, 0, 16777215, 8421504, 16744576, 16777215, 16761087
  646. UpdateColors
  647. End If
  648. If Index = 3 Then
  649. ntempbb = Invis
  650. changecolor 255, 16777215, 4210752, 16711680, 14737632, 16711680, 16777215, 16777215
  651. UpdateColors
  652. End If
  653. If Index = 4 Then
  654. ntempbb = Invis
  655. changecolor 192, 16384, 4210752, 8438015, 4210752, 32768, 16777215, 64
  656. UpdateColors
  657. End If
  658. UpdatePreview
  659. End If
  660. End Sub
  661. Private Sub Form_Load()
  662. MakeTopMost Form6.hwnd
  663. UpdateColors
  664. UpdatePreview
  665. End Sub
  666. Private Sub Label10_Click()
  667. Form6.Hide
  668. End Sub
  669. Private Sub Label11_Click()
  670. changecolor Picture1(1).BackColor, Picture1(0).BackColor, Picture1(6).BackColor, Picture1(4).BackColor, Picture1(5).BackColor, Picture1(2).BackColor, Picture1(3).BackColor, Picture1(7).BackColor
  671. Me.Hide
  672. End Sub
  673. Private Sub Label12_Click()
  674. MyMSG "Preview", "This Is A Preview"
  675. End Sub
  676. Private Sub Label12_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  677. Label12.ForeColor = tMdFgColor
  678. Shape8.BackColor = tMdBgColor
  679. End Sub
  680. Private Sub Label12_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  681. UpdatePreview
  682. End Sub
  683. Private Sub Picture1_Click(Index As Integer)
  684. Picture1(Index).BackColor = SetColor
  685. UpdatePreview
  686. End Sub
  687. Private Sub Label11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  688. Shape5.BackColor = vbWhite
  689. Label11.ForeColor = vbBlack
  690. End Sub
  691. Private Sub Label11_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  692. Shape5.BackColor = &HC07800
  693. Label11.ForeColor = vbWhite
  694. End Sub
  695. Private Sub Label10_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  696. Shape6.BackColor = vbWhite
  697. Label10.ForeColor = vbBlack
  698. End Sub
  699. Private Sub Label10_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  700. Shape6.BackColor = &HC07800
  701. Label10.ForeColor = vbWhite
  702. End Sub
  703. Private Sub UpdatePreview()
  704. Shape4.FillColor = Picture1(1).BackColor
  705. Shape3.FillColor = Picture1(1).BackColor
  706. Shape8.BackColor = Picture1(1).BackColor
  707. Label9.ForeColor = Picture1(0).BackColor
  708. Label12.ForeColor = Picture1(0).BackColor
  709. Picture9.BackColor = Picture1(7).BackColor
  710. tMdBgColor = Picture1(4).BackColor
  711. tMdFgColor = Picture1(5).BackColor
  712. Shape8.BorderColor = Picture1(6).BackColor
  713. Shape4.BorderColor = Picture1(6).BackColor
  714. Shape3.BorderColor = Picture1(6).BackColor
  715. Text1.BackColor = Picture1(2).BackColor
  716. Text1.ForeColor = Picture1(3).BackColor
  717. End Sub
  718. Private Sub UpdateColors()
  719. Picture1(0).BackColor = FgColor
  720. Picture1(1).BackColor = BgColor
  721. Picture1(2).BackColor = TxBgColor
  722. Picture1(3).BackColor = TxFgColor
  723. Picture1(4).BackColor = MdBgColor
  724. Picture1(5).BackColor = MdFgColor
  725. Picture1(6).BackColor = BdColor
  726. Picture1(7).BackColor = CbBgColor
  727. End Sub
  728.